* Use data from all studies
set more off
cd "${dropbox}/good guys/paper/data_code"

use gbc_s2, clear
append using gbc_s3
append using gbc_s4

drop if treatment==4
bysort id: egen type=mean(Type)

keep if treatment==2
keep id profile type b*
reshape long b, i(id) j(other)
	
replace b=b*100/60	
collapse (mean) b (sem) se=b, by(type other)
replace other=other*100/12

gen ci_l=b-1.96*se
gen ci_h=b+1.96*se

tw rarea ci_l ci_h other if type==1, col(red*.5) lc(white) ///
	|| rarea ci_l ci_h other if type==2, col(blue*.5) lc(white) ///
	|| line b other if type==1, lc(red) ///
	|| line b other if type==2, lc(blue) lp(dash) ///
	xtitle("Others' average contribution (% of endowment)") ///
	ytitle("Own contribution (% of endowment)") ///
	legend(off)
